home *** CD-ROM | disk | FTP | other *** search
- object TextInput: TTextInput
- Left = 231
- Top = 97
- BorderIcons = []
- BorderStyle = bsSingle
- Caption = 'Text Input'
- ClientHeight = 289
- ClientWidth = 350
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'System'
- Font.Style = [fsBold]
- PixelsPerInch = 120
- Position = poScreenCenter
- OnCloseQuery = FormCloseQuery
- TextHeight = 20
- object Label1: TLabel
- Left = 8
- Top = 20
- Width = 145
- Height = 25
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Name:'
- end
- object Label2: TLabel
- Left = 8
- Top = 120
- Width = 145
- Height = 25
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Size:'
- end
- object Label3: TLabel
- Left = 8
- Top = 70
- Width = 145
- Height = 25
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Initial Value:'
- end
- object Label4: TLabel
- Left = 8
- Top = 170
- Width = 145
- Height = 25
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Maximum Length:'
- end
- object Edit1: TEdit
- Left = 160
- Top = 15
- Width = 171
- Height = 30
- Color = clSilver
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- end
- object SpinEdit1: TSpinEdit
- Left = 160
- Top = 115
- Width = 61
- Height = 39
- Color = clSilver
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- MaxLength = 2
- MaxValue = 0
- MinValue = 0
- ParentFont = False
- TabOrder = 2
- Value = 0
- end
- object Edit2: TEdit
- Left = 160
- Top = 65
- Width = 171
- Height = 30
- Color = clSilver
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- end
- object SpinEdit2: TSpinEdit
- Left = 160
- Top = 165
- Width = 61
- Height = 39
- Color = clSilver
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- MaxLength = 2
- MaxValue = 0
- MinValue = 0
- ParentFont = False
- TabOrder = 3
- Value = 0
- end
- object BitBtn1: TBitBtn
- Left = 40
- Top = 230
- Width = 111
- Height = 41
- TabOrder = 4
- OnClick = BitBtn1Click
- Kind = bkOK
- end
- object BitBtn2: TBitBtn
- Left = 200
- Top = 230
- Width = 111
- Height = 41
- TabOrder = 5
- OnClick = BitBtn2Click
- Kind = bkCancel
- end
- end
-